home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / amig(ad)os / ringard'production / m2i_v5.51 / arexx / autoadd.m2i < prev    next >
Text File  |  1977-12-31  |  1KB  |  66 lines
  1. /* Ajoute des Outils automatiquement
  2.    d'un répertoire en regardant les .info */
  3. /* TP 1996 */
  4.  
  5. OPTIONS RESULTS
  6. address "M2IPort.Rexx"
  7.  
  8. DRAWER="'Nouveau'"
  9.  
  10. REQUEST GADGETS "'Choix du Répertoire|Abandon'" "M2I va créer des Icônes en fonction d'un Répertoire"
  11. IF RC=0 THEN EXIT
  12.  
  13. REQDIR ""
  14. IF RC~=0 THEN EXIT
  15. MONDIR=RESULT
  16. IF LASTPOS('/',MONDIR)~=0 THEN MONDIR=MONDIR"/"
  17.  
  18. LOCKUSER
  19.  
  20. /* Chercher fichiers */
  21. address command
  22. i=0
  23.  
  24. LISTDIR=MONDIR"#?.info"
  25. LISTDIR='"'LISTDIR'"'
  26.  
  27.  'list' LISTDIR 'quick files nohead to t:ls.tmp'
  28.  IF OPEN(1List, 't:ls.tmp', 'r') THEN
  29.  DO i = 1 while ~eof(1List)
  30.      File.i = readln(1List)
  31.  END
  32.  call CLOSE 1List
  33.  'delete >nil: t:ls.tmp'
  34.  
  35. /* ajouter */
  36. address "M2IPort.Rexx"
  37.  
  38. IF i<3 THEN
  39. DO
  40.  ERROR "La commande List n'a rien trouvé"
  41.  UNLOCKUSER
  42.  EXIT
  43. END
  44.  
  45. COUNT ":"DRAWER
  46. IF RESULT=0 THEN ADDDRW DRAWER ":"
  47.  
  48. SET WLIST "1" ":"DRAWER".d"
  49.  
  50.  num=1
  51.  i=i-1
  52.  DO while num<i
  53.    /* Supprimer .info et ajouter le dir*/
  54.    NEW=MONDIR""LEFT(file.num,length(file.num)-5)
  55.    num=num+1
  56.    /* Ajouter */
  57.   ADDICON "'"NEW"'" ":"DRAWER".d"
  58.  END
  59.  
  60. opendrw ":"DRAWER".d"
  61. redraw ":"DRAWER".d"
  62. redraw ":"
  63.  
  64. UNLOCKUSER
  65.  
  66.